. . . frame=some_name . . .

##</code><code>##

$print_link = $ENV{'REQUEST_URI'} ;
$print_link =~ s/frame=[\w*]&*//;

##</code><code>##

. . .&frame=content

##</code><code>##

. . .&ontent