You almost certainly want something like:

my @data_from = $tmpline =~ m/
    \s*(\d+)
    ;;(.+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;\s*(\d+)
    ;;(.+?)
    \s*;;\s*(.*?)
    \s*;;\s*(\d+)
    ;;(.+)\s*
/x;
[download]

That is, use a m// and assign the captures directly to @data_from instead of using s/// and converting it to a string containing the captures which is not an array. You;d need to split it, but that would be pointless.