while (m{(<c.*?/c>)}g)
{
    # Process $1...
}