$A  =~ s/def\n//gr;
print $A;