Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- my $test = "testString";
- print $1 if ($test =~ m/^(p{L}+)$/); #testString
- $test = "testStringö";
- print $1 if ($test =~ m/^(p{L}+)$/); #no print msg
- $test = "testéString";
- print $1 if ($test =~ m/^(p{L}+)$/); #no print msg
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement