if($data =~ m/(.+)?\!(.+)/)
{
    print "first: $1  ,   next:$2  \n";
}