!/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]