!/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);