[p5sagit/p5-mst-13.2.git] / foo

#!./perl

$foo = <<EOF;
Subject: foobar
From: baz
EOF

$* = 1;

$pat = '^([*+&!]*)(Subject:)';
#$pat =~ s/([a-zA-Z])/[\u$1\l$1]/g;
#print $pat;

$foo =~ /$pat/ig;

print $', "\n";
Commit	Line	Data
93a17b20	1	#!./perl
93a17b20	2
2304df62	3	$foo = <<EOF;
	4	Subject: foobar
	5	From: baz
	6	EOF
	7
	8	$* = 1;
	9
	10	$pat = '^([+&!])(Subject:)';
	11	#$pat =~ s/([a-zA-Z])/[\u$1\l$1]/g;
	12	#print $pat;
	13
	14	$foo =~ /$pat/ig;
	15
	16	print $', "\n";
	17