#!/usr/bin/perl -w 
use strict; 
use Tie::File; 
  
#open 
my $archivo = 'test-pdf.tex'; 
  
my @coment=split(/\\begin{document}/, $archivo,2); 
#Usamos tie 
tie @coment, 'Tie::File', $archivo or die "No coment lines: $!"; 
#search 
foreach my $line (@coment) { 
# Coment 
$line =~ s/(\\usepackage){pst/\%\\usepackage{pst/i; 
} 
#close 
untie @coment;