#!/usr/bin/perl
'AAA' =~ /A+\w/ ? print "$&\n" : print "no match\n"; 'AAA' =~ /A+(*SKIP)\w/ ? print "$&\n" : print "no match\n"; 'abc' =~ /a(?=.+c)\w/ ? print "$&\n" : print "no match\n"; 'abc' =~ /a(?=.+(*SKIP)c)\w/ ? print "$&\n" : print "no match\n"; 'abc' =~ /a(?!.+c)\w/ ? print "$&\n" : print "no match\n"; 'abc' =~ /a(?!.+(*SKIP)c)\w/ ? print "$&\n" : print "no match\n";
IyEvdXNyL2Jpbi9wZXJsCidBQUEnID1+IC9BK1x3LyA/IHByaW50ICIkJlxuIiA6IHByaW50ICJubyBtYXRjaFxuIjsKJ0FBQScgPX4gL0ErKCpTS0lQKVx3LyA/IHByaW50ICIkJlxuIiA6IHByaW50ICJubyBtYXRjaFxuIjsKJ2FiYycgPX4gL2EoPz0uK2MpXHcvID8gcHJpbnQgIiQmXG4iIDogcHJpbnQgIm5vIG1hdGNoXG4iOwonYWJjJyA9fiAvYSg/PS4rKCpTS0lQKWMpXHcvID8gcHJpbnQgIiQmXG4iIDogcHJpbnQgIm5vIG1hdGNoXG4iOwonYWJjJyA9fiAvYSg/IS4rYylcdy8gPyBwcmludCAiJCZcbiIgOiBwcmludCAibm8gbWF0Y2hcbiI7CidhYmMnID1+IC9hKD8hLisoKlNLSVApYylcdy8gPyBwcmludCAiJCZcbiIgOiBwcmludCAibm8gbWF0Y2hcbiI7Cg==