Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

TilRMan's scratchpad

by TilRMan (Friar)
on Jun 02, 2004 at 01:02 UTC ( #358931=scratchpad: print w/replies, xml ) Need Help??

!/usr/bin/perl -w use strict; use Test::More; plan tests => 4; $/ = ","; my $foo = "ab$/cd"; ok($foo =~ /^a/m); ok($foo =~ /b$/m); ok($foo =~ /^c/m); ok($foo =~ /d$/m);