You probably want to use:

system q{cat /proc/net/dev|grep eth0|awk '{print $2}'|sed 's/eth0://g'
+};
[download]

or

my $result = `cat /proc/net/dev|grep eth0|awk '{print \$2}'|sed 's/eth
+0://g'`;
[download]