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