{
    no warnings 'uninitialized';
    $line =~ s/(<[^>]*>|\$[0-9])|\$/$1/g;
}