String Perl

$print = 10;    
    $line = "this is $print";