in reply to delete line

$string=~s/.*\{IT\}/{IT}/;
This works if you are sure that {IT} does not occur afterwards (i.e. in the part you want to keep)
$string=~s/.*?\{IT\}/{IT}/;
This works if you are sure that {IT} does not occur in the string before (i.e. in the part you want to throw away)