!/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); [download]
www.com | www.net | www.org
No recent polls found