Help for this page

Select Code to Download

Select or download this

D:\>perl
$bar = 1; $_ = 123;  s/$bar/bar said $bar -/; print
...
__END__
bar said $bar -23
D:\>