#!/usr/bin/perl -i.bak

use English;

## get input
undef $INPUT_RECORD_SEPARATOR;
$file = <>;

#print STDERR "*********** I got: $file\n";

## transform it

#$file =~ s/\$\\mathbb{R}\$\^(.))/\$mathbb{R}^$1\$/g;
#$file =~ s/\$\\mathbb{R}\$\^(.))/hi/g;

# print output
print $file