$line =~ s/^$pattern//;