6 lines
251 B
Perl
6 lines
251 B
Perl
|
print qq/Hello\n/; # same as: print "Hello\n";
|
||
|
|
print q/He owes $5.00/; # same as: print 'He owes $5.00', "\n";
|
||
|
|
@states=qw( E T A L ); # same as ("E", "T", "A","L")
|
||
|
|
$today = qx(date); # same as $today = 'date';
|
||
|
|
|
||
|
|
|