Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

while (my $first = <DATA>) {
...
tEsTs
a Test
another Test

Select or download this

Is >test< equal to >TEST<? Yes
Is >testing< equal to >testing<? Yes
Is >TESTED< equal to >TESTED<? Yes
Is >TeStS< equal to >tEsTs<? Yes
Is >a Test< equal to >another Test<? No