# using regex
        'm//' => sub {
            my ( $first ) = $str =~ m/(.*?),/;
        },
        'm//s' => sub {
            my ( $first ) = $str =~ m/(.*?),/s;
        },