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;