文字列のpopとか作ったんですけど、
$str = pops ($str) ;　とかの代入なしで、　pops ($str) ;　と書ける方法ありませんか？
下は書いたモンです

sub pops ($) {
my @t = split // , shift ;
pop @t ;
return join "", @t ;
}
sub pushs ($$) {
my $c = shift ;
my @t = split // , shift ;
push @t , $c ;
return join "", @t ;
}

my $str = "apple" ;
print "original : $str\n" ;

$str = pops ($str) ;
print "pops : $str\n" ;

$str = "apple" ;
$str = pushs ("s",$str) ;
print "pushs : $str\n" ;