#!/usr/bin/perl

use strict;
use warnings;

my $sometext = 'somefile.txt';

open(SOME, $sometext);

while(<SOME>) {

    chomp;
    
    $a = $_;

    $a =~ s/'//g;
    
    print $a; }