my $pattern = qr{
    <PgfTag\ `Normal\ \(T\)'> 
    \s* \n
    \s* 
    <ParaLine 
    \s* \n
    \s*
    <String\ `$oldLabel'> 
    \s* \n
   }x;