Not really weird, but I sometimes get caught being too fancy. I try to do a s///, and expect it to return the matches as a list. Sometimes I write this:

if ( ( $a, $b, $c ) = $current_text =~ s/$some_regex// )
{
    # do something useful
    next READ_MORE_DATA
}
[download]

in a parserish way. Then I have that forehead-slapping moment, and change it to this:

if ( $current_text =~ s/$some_regex// )
{
    ( $a, $b, $c ) = ( $1, $2, $3 );
    # do something useful
    next READ_MORE_DATA
}
[download]