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