while($some_data=~ m/some_regex/g)
{
    # Do some stuff
}