#!/usr/bin/perl
use strict;
use warnings;

sub test_subroutine {
    $_[0] =~ s/"//g;
    return $_[0];
}

my $string = q{asd" efg"};

my $string_formatted = test_subroutine($string);

print $string_formatted . "\n"; # asd efg