$|^|\z|\Z|/a|/l

 #!/usr/bin/perl

 use strict;
 use warnings;

 foreach(<>)
 {
     if (/(\w*)/a){print "$1\n";}else{print "no match\n";}
 }

 #11111111111111111111111111111111111
 #nciuwbufcbew
 #
 #x
 #xw
 #11111111111111111111111111111111111

 foreach(<>)
 {
 if (/(\w*)/l){print "$1\n";}else{print "no match\n";}
 }

 #11111111111111111111111111111111111
 #nciuwbufcbew``````//.]];s[[..;
 #
 #x,dsncdk,;l,ex
 #xw,eocxmcmck
 #11111111111111111111111111111111111

 foreach(<>)
 {
 if (/\Ax(.*)/){print "$1\n";}else{print "no match\n";}
 }

 #no match
 #no match
 #no match
 #,dsncdk,;l,ex
 #w,eocxmcmck
 #no match

 foreach(<>)
 {
 if (/(.*)\;\z/){print "$1\n";}else{print "no match\n";}
 }

 #no match
 #no match
 #no match
 #no match
 #no match
 #no match

 foreach(<>)
 {
 if (/(.*)\;\Z/){print "$1\n";}else{print "no match\n";}
 }

 #no match
 #nciuwbufcbew``````//.]];s[[..
 #no match
 #no match
 #no match
 #no match

 foreach(<>)
 {
 if (/\A(\s*)\Z/){print "$1\n";}else{print "no match\n";}
 }

 #no match
 #no match
 #
 #
 #no match
 #no match
 #no match

 $_='

     oinn
     nin
 nin
     kkkk';

 if (/(.*)k$/){print "$1\n";}else{print "no match\n";}

 #   kkk

 if (/^n(.*)/m){print "$1\n";}else{print "no match\n";}

 #in