while ($input =~ /YOUR_REGEX_GOES_HERE/gs) {
    print "Extracted values $1, $2, $3\n";
}