9 lines
158 B
Perl
9 lines
158 B
Perl
|
$string = "I am a string";
|
||
|
|
if ($string =~ /string$/) {
|
||
|
|
print "Ends with 'string'\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($string !~ /^You/) {
|
||
|
|
print "Does not start with 'You'\n";
|
||
|
|
}
|