$nullpo = "･ω･'" ;
if ( $nullpo =~ /\'/ ) {
print "\(’$`\)";
}