Vérifier le début d’une chaîne avec le symbole ‘^’

Author: 
#!/usr/bin/perl
 
 
print "Tapez une phrse commençant par le mot perl: ";
foreach $elem ($ligne=<STDIN
Categories: Perl