Use of uninitialized value $_ in pattern match (m//) at (eval 1) line 1, <DATA> line 4.
Use of uninitialized value in substitution iterator at videotag.pl line 46, <DATA> line 4.
Scalar found where operator expected at (eval 3) line 1, near "/embed/$1"
        (Missing operator before $1?)
Use of uninitialized value in substitution iterator at videotag.pl line 46, <DATA> line 4.