$|^|z||/a|/l

#!/usr/bin/perl

use strict;
use warnings;

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

#11111111111111111111111111111111111
#nciuwbufcbew
#
#x
#xw
#11111111111111111111111111111111111

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

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

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

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

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

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

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

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

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

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

$_='

    oinn     
    nin
nin
    kkkk';

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

#   kkk

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

#in